* frame.el (frame-initialize): Remember to actually traverse

	initial-frame-alist.

diff --git a/lisp/frame.el b/lisp/frame.el
index 6abf81260324234cc5e88bb2d4b472bf63859d45..b75535172406c3e76163e51282f8f4d142bf0aff 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -108,7 +108,8 @@ These supersede the values given in `default-frame-alist'.")
                  (if (and (consp (car tail))
                           (memq (car (car tail)) '(height width top left)))
                      (setq initial-frame-alist
-                           (delq tail initial-frame-alist)))))
+                           (delq tail initial-frame-alist)))
+                 (setq tail (cdr tail))))
              ;; Handle `reverse' as a parameter.
              (if (cdr (or (assq 'reverse initial-frame-alist)
                           (assq 'reverse default-frame-alist)